library(dplyr) 
library(dbplyr) 
library(plyr)
library(tidyverse)
library(ggthemes)
library(scales)
library(kableExtra)
library(lfe)
library(knitr)
library(readxl)
library(ggplot2)
library(plotrix)
library(gtools)
library(stargazer)
library(MASS)
library(texreg)
library(corrplot)
library(broom)
library(purrr)
library(estimatr)
library(dotwhisker)
library(mediation)
library(arm)
library(xtable)
library(sandwich)
library(lmtest)
options(xtable.comment = FALSE)

options(warn=-1)

## Collect Data
setwd('../CM_Code_RR')
qtrics_file = "replication_data.csv"
qtrics_name = read_csv(qtrics_file, n_max = 0) %>%  names()
data = read_csv(qtrics_file, skip=3, col_names=qtrics_name)

## Data Cleaning and Functions
source("recode.r")
source("functions.r")

## Summary Tables
source("sum_stats_fig1.r")
source("sum_stats_fig2.r")
source("sum_stats_fig3.r")

## Main Paper Analysis
source("clean_main_fig.r")

## Appendix Analysis
source("clean_appendix_fig.r")




